home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 53 / PC Actual CD 53.iso / intro.dxr / scripts_13_Lineas marca.ls < prev    next >
Encoding:
Text File  |  2001-01-15  |  861 b   |  38 lines
  1. property sp, m, ultimaLinea, AltoLinea, lado
  2. global spLinea
  3.  
  4. on getPropertyDescriptionList
  5.   lista = [:]
  6.   addProp(lista, #lado, [#format: #symbol, #range: [#dcha, #izda], #default: #izda, #comment: "lado de la linea vertical"])
  7.   return lista
  8. end
  9.  
  10. on beginSprite me
  11.   sp = me.spriteNum
  12.   m = sprite(sp).member
  13.   ultimaLinea = -1
  14. end
  15.  
  16. on mouseEnter me
  17.   sp = me.spriteNum
  18.   m = sprite(sp).member
  19.   AltoLinea = m.FixedLinespace
  20. end
  21.  
  22. on mouseLeave me
  23.   sprite(spLinea).locV = 0
  24.   sprite(spLinea + 2).locH = 0
  25. end
  26.  
  27. on mouseWithin me
  28.   numLinea = PointToLine(sprite(sp), the mouseLoc)
  29.   if ultimaLinea <> numLinea then
  30.     sprite(spLinea).locV = sprite(sp).top + (numLinea * AltoLinea) - m.scrollTop
  31.     if lado = #izda then
  32.       sprite(spLinea + 2).locH = sprite(sp).left + 8
  33.     else
  34.       sprite(spLinea + 2).locH = sprite(sp).right - 8
  35.     end if
  36.   end if
  37. end
  38.